From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 7 Feb 2024 16:15:59 +0000 (-0500)
Subject: * test/lisp/minibuffer-tests.el (completion-test--pcm-bug38458): New test
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~14^2~18^2~2635
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=2f3c435056dac17242b2d147bc73df8742c3e374;p=emacs.git

* test/lisp/minibuffer-tests.el (completion-test--pcm-bug38458): New test
---

diff --git a/test/lisp/minibuffer-tests.el b/test/lisp/minibuffer-tests.el
index 07c4dbc3197..c4a7de9e51f 100644
--- a/test/lisp/minibuffer-tests.el
+++ b/test/lisp/minibuffer-tests.el
@@ -201,6 +201,13 @@
                     'completions-first-difference)
            return pos))
 
+(ert-deftest completion-test--pcm-bug38458 ()
+  (should (equal (let ((completion-ignore-case t))
+                   (completion-pcm--merge-try '("tes" point "ing")
+                                              '("Testing" "testing")
+                                              "" ""))
+           '("testing" . 4))))
+
 (ert-deftest completion-pcm-test-1 ()
   ;; Point is at end, this does not match anything
   (should (null